home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / listing 19 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  162b  |  9 lines
  1. 2200 rem inventur routine
  2. 2205 ifve<>22then2300
  3. 2210 print"ich habe: ";
  4. 2220 ic=0:fori=1togz:ifge(i)=-1thenprintge$(i)",";:ic=1
  5. 2225 next
  6. 2230 ific=0thenprint"nichts."
  7. 2235 ific=1thenprint"[157] "
  8. 2300 goto1000
  9.